_ptimer1 if ($3 == $null) set %_arhelp _ptimer2 $1 do a $+ $2 | elseif ($2 == me) set %_arhelp _ptimer2 $1 describe $_s2c($3-) | else set %_arhelp _ptimer2 $1-2 $_s2c($3-) | _pentry _arhelp Number of times to repeat message?(Enter for infinite)
_ptimer2 set %_arhelp _ptimer3 $1-4 | if ($4 == $null) set %_arhelp %_arhelp 0 | _askr _arhelp Seconds between repetitions?
_ptimer3 set %_arhelp _ptimer4 $1-5 | _askr _arhelp Message to repeat?
_ptimer4 if ($2 == do) set %.cmd $4 $5 $3 $6- | else set %.cmd $4 $5 $2-3 $6- | if ($1) set %.cmd %.cmd $!_antirep | _timer800 %.cmd
_palarm1 if ($2 == $null) set %_arhelp alarm $1 $+ m | else set %_arhelp alarm $2 $+ m $1 | _askr _arhelp Alarm message?
_palarm2 if ($2 == $null) set %_arhelp alarm $1 | else set %_arhelp alarm $2 $1 | _askr _arhelp Alarm message?
_setkey if ($chan($1).key != $null) m $1 -k $chan($1).key | m $1 +k $2
_pkick1 set %_arhelp $1-3 | _askr _arhelp Reason for kick?
_pallbut set %_arhelp allbut $1-2 | _askr _arhelp Mass notice message?
_cscanm if ($1 isin %chanscan.default) { set %chanscan.default $remove(%chanscan.default,$1) | dispa $2- will not be shown in default scan } | else { set %chanscan.default %chanscan.default $+ $1 | dispa $2- will be shown in default scan }
_pbot1e if (* isin $2) set %_arhelp _pbot2e $1-2 | else set %_arhelp _pbot2e $1 $_ppmask($2,3) | _askr _arhelp Password on bot?
_pbot2e botlist a $1-2 $+ /eggy $3 | botlist c $1-2 $+ /eggy opme msg &bot& op &pw& | dispa Support for eggdrop %col.target $+ $1 $+ added. Use /opme when unopped to request ops, assuming you don't have X, W, etc. access.
_pbot1p if (* isin $2) set %_arhelp _pbot2p $1-2 | else set %_arhelp _pbot2p $1 $_ppmask($2,3) | _askr _arhelp Password you use with OPME to user?
_pbot2p botlist a $1-3 | botlist c $1-2 opme ctcp &bot& opme &chan& &pw& | dispa Automated OPME support on user %col.target $+ $1 $+ added using botlist. /opme when unopped to use, assuming you don't have X, W, etc. access.
_pbot1 if (* isin $2) set %_arhelp _pbot2 $1-2 | else set %_arhelp _pbot2 $1 $_ppmask($2,3) | _askr _arhelp Password on bot?
_pbot2 set %_arhelp _pbot3 $1-3 | _askr _arhelp Is bot an eggdrop or other bot you wish to have your password automatically said to when you initiate a DCC chat? (yes or no)
_pbot3 if (y isin $4) botlist a $1-2 $+ /eggy $3 | else { set %_arhelp _pbot4 $1-3 | _askr _arhelp Is bot a "service" IE a bot you wish to have used even if NOT visible on the channel? (yes or no) } | dispa View botlist popups to add bot commands
_pbot4 if (y isin $4) botlist a $1-2 $+ /service $3 | else botlist a $1-3 | dispa View botlist popups to add bot commands
_pxwkick set %_arhelp $1- | _pentry _arhelp Reason?2
_pxwban set %_arhelp _pxwban2 $1-3 | _askr _arhelp Hours to ban? (336 max)
_pxwban2 set %_arhelp _msgxw $1 ban $1 $3 $4 $2 | _pentry _arhelp Reason?2
_pxwban3 set %_arhelp _pxwban $1-2 | _askr _arhelp Mask to ban?
_sell1 set %.s1.max $snick($1,0) | if (%.s1.max > 0) { set %.s1.num 1 | :loop | $2 $snick($1,%.s1.num) $3- | if ($_vi(.s1.num) <= %.s1.max) goto loop }
_sell2 set %.s2.max $snick($1,0) | if (%.s2.max > 0) { set %.s2.num 1 | :loop | $2-3 $snick($1,%.s2.num) $4- | if ($_vi(.s2.num) <= %.s2.max) goto loop }
_sell12 set %.s2.max $snick($1,0) | if (%.s2.max > 0) { set %.s2.num 1 | :loop | $2 $snick($1,%.s2.num) $snick($1,%.s2.num) $3- | if ($_vi(.s2.num) <= %.s2.max) goto loop }
_sell3 set %.s2.max $snick($1,0) | if (%.s2.max > 0) { set %.s2.num 1 | :loop | $2-4 $snick($1,%.s2.num) $5- | if ($_vi(.s2.num) <= %.s2.max) goto loop }
_sellX set %.s2.max $snick($1,0) | if (%.s2.max > 0) { set %.s2.num 1 | :loop | $3-4 $_ppmask($snick($1,%.s2.num),$2) $5- | if ($_vi(.s2.num) <= %.s2.max) goto loop }
; $_soundmsg(plays,$false,filename.mp3) ($true to ask for description if none exists)
_soundmsg {
set %.gm.desc $_ppdesc($nopath($3-))
if (%.gm.desc == (none)) unset %.gm.desc
set %.gm.leech $_ppcfg(Sound,LeechCmd) $nopath($3-)
if (($_ppcfg(Sound,LeechShow)) && ($_rtok(1,46,$nopath($3-)) isin $_ppcfg(Sound,LeechTypes))) {
if (%.gm.desc == $null) set %.gm.ret $_getmsg(SoundMsg,MessageLeech)
else set %.gm.ret $_getmsg(SoundMsg,MessageDescLeech)
}
else {
if (%.gm.desc == $null) set %.gm.ret $_getmsg(SoundMsg,Message)
else set %.gm.ret $_getmsg(SoundMsg,MessageDesc)
}
if (%.gm.desc == $null) set %.gm.desc (no desc.)
set %.ret $_finalmsg($replace($replace($replace($replace($replace(%.gm.ret,&file&,$_sfext($nopath($3-))),&size&,$_size($lof($3-))),&leech&,%.gm.leech),&desc&,%.gm.desc),&play&,$_p2s($1)))
if ($group(#lastseen) == on) { .disable #lastseen | dispa Disabled %col.dark $+ "Record last seen data" | set %.did $true }
if (%+clonescan.youjoin) { set %+clonescan.youjoin $false | dispa Disabled %col.dark $+ "Scan for clones when you join a channel" | set %.did $true }
if (%+blackscan.youop) { set %+blackscan.youop $false | dispa Disabled %col.dark $+ "Scan for blacklisted users when you are opped" | set %.did $true }
if (%+joinstat) { set %+joinstat $false | dispa Disabled %col.dark $+ "Show any kickstats for a user when they join" | set %.did $true }
_slowprot max.caps 0 Caps Flood
_slowprot max.capperc 0 Caps Abuse
_slowprot +acton.badidentd $false Invalid Identd
_slowprot match.wordkick $null Word Kicks
}
_slow2 {
if (%+colorflood.check) { set %+colorflood.check $false | dispa Disabled %col.dark $+ "On extreme color flood, ignore colors to prevent 'screen lag'" | set %.did $true }
if (%+awaywords.on) { set %+awaywords.on $false | dispa Disabled %col.dark $+ "If user says an awayword in channel send notice that you are away" | set %.did $true }
if (%+blackscan.nick) { set %+blackscan.nick $false | dispa Disabled %col.dark $+ "When user changes nick, check to see if new nick is blacklisted" | set %.did $true }
if (%+ircop.check) { set %+ircop.check $false | dispa Disabled %col.dark $+ "Check for and warn when a user joining a channel is an IRCop" | set %.did $true }
if ($group(#activitylog) == on) { .disable #activitylog | dispa Disabled %col.dark $+ "Log channel activity (modes, etc.) to ACTIVITY.LOG" | set %.did $true }
if ($group(#voiceautosync) == on) { .disable #voiceautosync | dispa Disabled %col.dark $+ "Auto sync userlist if voiced then deopped" | set %.did $true }
if ($group(#whitetxt) == on) { .disable #whitetxt | dispa Disabled %col.dark $+ "Show you text people type in your background color" | set %.did $true }
_slowprot max.pcode 0 Attribute Abuse
_slowprot max.codeflood 0 Attribute Flood
_slowprot max.repeat 0 Repeating
_slowprot max.revolve 0 Revolving Door
}
_slowend {
if (%.did) dispa All features in selected category disabled
else dispa No features in selected category were enabled, so none could be disabled.
}
_slowprot {
if (% [ $+ [ $1 ] ] != $2) { set % [ $+ [ $1 ] ] $2 | dispa Disabled global protection for %col.dark $+ " $+ $3- $+ " | set %.did $true }
set %.ch $chan(0)
if (%.ch > 0) {
:loop
set %.chn $chan(%.ch)
set %.var $1 $+ . $+ %.chn
if (% [ $+ [ %.var ] ] != $2) { set % [ $+ [ $1 ] ] $2 | dispa Disabled protection for %col.dark $+ " $+ $3- $+ " on %col.target $+ %.chn | set %.did $true }
